ProNovia Produkte Korrekturanleitung
Knowledge Base ID
Artikellink	10658
http://support.pronovia.ch/index.php?/Knowledgebase/Article/View/10658	
Produkt(e) / Korrektur in Version	CFM V6.1.7	
Ausgabe Korrekturanleitung	I / CG / 08.06.2017	
Farblegende Korrekturen	INSERT	REPLACE THIS	REPLACE WITH	DELETE	

Include	/PRONOVIA/LPRMSTAF01	
Form	MS_VALID_LIST_MSTAE	

FORM ms_valid_list_mstae

. . .

  STATICS:
      st_ba_sel             TYPE tt_bas_sel
>>>START INSERT
    , st_valid_bsz          TYPE /pronovia/range_c15_tab                "CG/ID10658
>>>END INSERT
    .
* CG/ID5868}

  DATA:
      lf_sttyp              TYPE /pronovia/sttyp

. . .

    , ls_marc_x             TYPE marc                                   "CG/ID7023
    , lf_mmsta_ok           TYPE flag                                   "CG/ID7023
>>>START INSERT
    , ls_valid_bsz          TYPE /pronovia/range_c15                    "CG/ID10658
>>>END INSERT
    .
  FIELD-SYMBOLS:
      <info>                TYPE /pronovia/prm_stainfo

. . .

    ENDIF.
    IF st_ba_sel IS INITIAL.
>>>START INSERT
      ls_valid_bsz-sign   = 'I'.                                        "CG/ID10658
      ls_valid_bsz-option = 'EQ'.                                       "CG/ID10658

>>>END INSERT
      SELECT * INTO ls_prmbas
             FROM /pronovia/prmbas
             ORDER BY bszid
                      mstav
                      mstan
                      phaid.
        CHECK ls_prmbas-phaid IS INITIAL                                "CG/ID7036
           OR /pronovia/cl_prm_def=>cust_mai-uspha = true.              "CG/ID7036

>>>START INSERT
        "{CG/ID10658
        IF ls_prmbas-bszid <> ls_valid_bsz-low.
          ls_valid_bsz-low = ls_prmbas-bszid.
          APPEND ls_valid_bsz TO st_valid_bsz.
        ENDIF.
        "CG/ID10658}

>>>END INSERT
        IF ls_prmbas-bszid <> ls_ba_sel-bszid

. . .

    IF pf_mstae IS INITIAL.
*     alle Initialstati zu KonfTyp besorgen
      SELECT s~mstae
. . .

        ENDIF.
>>>START INSERT
        IF st_valid_bsz IS INITIAL.                                     "CG/ID10658
          sy-subrc = 1.                                                 "CG/ID10658
        ELSE.                                                           "CG/ID10658
>>>END INSERT
          SELECT bszid filtr
                 INTO (ls_msinfo-bszid,
                       ls_msinfo-filtr)
                 FROM /pronovia/prmktz
>>>REPLACE THIS 
                 WHERE knftp = pf_knftp.
>>>REPLACE WITH
                 WHERE knftp = pf_knftp
                   AND bszid IN st_valid_bsz.                           "CG/ID10658
>>>END REPLACE
            APPEND ls_msinfo TO lt_mstae.
          ENDSELECT.
>>>START INSERT
        ENDIF.                                                          "CG/ID10658
>>>END INSERT
        IF sy-subrc NE 0.
          CLEAR: ls_msinfo-bszid, ls_msinfo-filtr.
          APPEND ls_msinfo TO lt_mstae.
        ENDIF.
      ENDSELECT.
    ELSE.
      SELECT s~mstae

. . .

        ENDIF.
>>>START INSERT
        IF st_valid_bsz IS INITIAL.                                     "CG/ID10658
          sy-subrc = 1.                                                 "CG/ID10658
        ELSE.                                                           "CG/ID10658
>>>END INSERT
          SELECT bszid filtr
                 INTO (ls_msinfo-bszid,
                       ls_msinfo-filtr)
                 FROM /pronovia/prmktz
>>>REPLACE THIS
                 WHERE knftp = pf_knftp.
>>>REPLACE WITH
                 WHERE knftp = pf_knftp
                   AND bszid IN st_valid_bsz.                             "CG/ID10658
>>>END REPLACE
            APPEND ls_msinfo TO lt_mstae.
          ENDSELECT.
        ENDIF.                                                          "CG/ID10658
        IF sy-subrc NE 0.
          CLEAR: ls_msinfo-bszid, ls_msinfo-filtr.
          APPEND ls_msinfo TO lt_mstae.
        ENDIF.
      ENDSELECT.
    ENDIF.

*   BSZ Range aufsetzen

. . .	
Include	/PRONOVIA/LPRMSTAF01	
Form	MS_VALID_LIST_MMSTA	

FORM ms_valid_list_mmsta

. . .

    .
  STATICS:
      st_ba_sel             TYPE tt_bax_sel
>>>START INSERT
    , st_valid_bsz          TYPE /pronovia/range_c15_tab                "CG/ID10658
>>>END INSERT
    .

. . .

    , lv_object_key         TYPE tabkey                                 "CG/ID7223 / MK/ID9984
    , ls_marc_key           TYPE /pronovia/marc_tabkey                  "MK/ID9984
>>>START INSERT
    , ls_valid_bsz          TYPE /pronovia/range_c15                    "CG/ID10658
>>>END INSERT
    .
  FIELD-SYMBOLS:
      <info>                TYPE /pronovia/prm_stainfo

. . .

    ENDIF.
    IF st_ba_sel IS INITIAL.
>>>START INSERT
      ls_valid_bsz-sign   = 'I'.                                        "CG/ID10658
      ls_valid_bsz-option = 'EQ'.                                       "CG/ID10658

>>>END INSERT
      SELECT * INTO ls_prmbax
             FROM /pronovia/prmbax
             ORDER BY bszid
                      mmsta_vorg
                      mmsta.
>>>START INSERT
        "{CG/ID10658
        IF ls_prmbax-bszid <> ls_valid_bsz-low.
          ls_valid_bsz-low = ls_prmbax-bszid.
          APPEND ls_valid_bsz TO st_valid_bsz.
        ENDIF.
        "CG/ID10658}

>>>END INSERT
        IF ls_prmbax-bszid <> ls_ba_sel-bszid
        OR ls_prmbax-mmsta_vorg <> ls_ba_sel-mmsta_vorg
        OR ls_prmbax-mmsta <> ls_ba_sel-mmsta.

. . .

    IF pf_mstae IS INITIAL.
*     alle Initialstatus zu KonfTyp besorgen
. . .

        ENDIF.
>>>START INSERT
        IF st_valid_bsz IS INITIAL.                                     "CG/ID10658
          sy-subrc = 1.                                                 "CG/ID10658
        ELSE.                                                           "CG/ID10658
>>>END INSERT
          SELECT bszid filtr
                 INTO (ls_msinfo-bszid,
                       ls_msinfo-filtr)
                 FROM /pronovia/prmktz
>>>REPLACE THIS
                 WHERE knftp = pf_knftp.
>>>REPLACE WITH
                 WHERE knftp = pf_knftp
                   AND bszid IN st_valid_bsz.                             "CG/ID10658
>>>END REPLACE
            APPEND ls_msinfo TO lt_mstae.
          ENDSELECT.
>>>START INSERT
        ENDIF.                                                          "CG/ID10658
>>>END INSERT
        IF sy-subrc NE 0.
          CLEAR: ls_msinfo-bszid, ls_msinfo-filtr.
          APPEND ls_msinfo TO lt_mstae.
        ENDIF.
      ENDSELECT.
    ELSE.
      "alle Status gem. Vorgänger

. . .

        ENDIF.
>>>START INSERT
        IF st_valid_bsz IS INITIAL.                                     "CG/ID10658
          sy-subrc = 1.                                                 "CG/ID10658
        ELSE.                                                           "CG/ID10658
>>>END INSERT
          SELECT bszid filtr
                 INTO (ls_msinfo-bszid,
                       ls_msinfo-filtr)
                 FROM /pronovia/prmktz
>>>REPLACE THIS
                 WHERE /pronovia/prmktz~knftp = pf_knftp.
>>>REPLACE WITH
                 WHERE /pronovia/prmktz~knftp = pf_knftp
                   AND bszid IN st_valid_bsz.                             "CG/ID10658
>>>END REPLACE
            APPEND ls_msinfo TO lt_mstae.
          ENDSELECT.
>>>START INSERT
        ENDIF.                                                          "CG/ID10658
>>>END INSERT
        IF sy-subrc NE 0.
          CLEAR: ls_msinfo-bszid, ls_msinfo-filtr.
          APPEND ls_msinfo TO lt_mstae.
        ENDIF.
      ENDSELECT.
    ENDIF.

*   BSZ Range aufsetzen

. . .	

Include	/PRONOVIA/LPRMSTAF01	
Form	MS_VALID_LIST_VMSTA	

FORM ms_valid_list_vmsta

. . .

    .
  STATICS:
      st_ba_sel             TYPE tt_bad_sel
>>>START INSERT
    , st_valid_bsz          TYPE /pronovia/range_c15_tab                "CG/ID10658
>>>END INSERT
    .

. . .

    , ls_bad2               TYPE ts_bad2
    , ls_prmbad             TYPE /pronovia/prmbad
*     CG/ID5868}
>>>START INSERT
    , ls_valid_bsz          TYPE /pronovia/range_c15                    "CG/ID10658
>>>END INSERT
    .
  FIELD-SYMBOLS:
      <info>                TYPE /pronovia/prm_stainfo

. . .

    ENDIF.
    IF st_ba_sel IS INITIAL.
>>>START INSERT
      ls_valid_bsz-sign   = 'I'.                                        "CG/ID10658
      ls_valid_bsz-option = 'EQ'.                                       "CG/ID10658

>>>END INSERT
      SELECT * INTO ls_prmbad
             FROM /pronovia/prmbad
             ORDER BY bszid
                      vmsta_vorg
                      vmsta.
>>>START INSERT
        "{CG/ID10658
        IF ls_prmbad-bszid <> ls_valid_bsz-low.
          ls_valid_bsz-low = ls_prmbad-bszid.
          APPEND ls_valid_bsz TO st_valid_bsz.
        ENDIF.
        "CG/ID10658}
>>>END INSERT

        IF ls_prmbad-bszid <> ls_ba_sel-bszid

. . .

    ENDIF.

    IF pf_vmsta IS INITIAL.
*     alle Initialstati zu KonfTyp besorgen

. . .

          CLEAR ls_msinfo-obctl.
        ENDIF.
>>>START INSERT
        IF st_valid_bsz IS INITIAL.                                     "CG/ID10658
          sy-subrc = 1.                                                 "CG/ID10658
        ELSE.                                                           "CG/ID10658
>>>END INSERT
          SELECT bszid filtr
                 INTO (ls_msinfo-bszid,
                       ls_msinfo-filtr)
                 FROM /pronovia/prmktz
>>>REPLACE THIS
                 WHERE knftp = pf_knftp.
>>>REPLACE WITH
                 WHERE knftp = pf_knftp
                   AND bszid IN st_valid_bsz.                             "CG/ID10658
>>>END REPALCE
            APPEND ls_msinfo TO lt_mstae.
          ENDSELECT.
>>>START INSERT
        ENDIF.                                                          "CG/ID10658
>>>END INSERT
        IF sy-subrc NE 0.
          CLEAR: ls_msinfo-bszid, ls_msinfo-filtr.
          APPEND ls_msinfo TO lt_mstae.
        ENDIF.
      ENDSELECT.
    ELSE.
      SELECT s~vmsta

. . .

          CLEAR ls_msinfo-obctl.
        ENDIF.
>>>START INSERT
        IF st_valid_bsz IS INITIAL.                                     "CG/ID10658
          sy-subrc = 1.                                                 "CG/ID10658
        ELSE.                                                           "CG/ID10658
>>>END INSERT
          SELECT bszid filtr
                 INTO (ls_msinfo-bszid,
                       ls_msinfo-filtr)
                 FROM /pronovia/prmktz
>>>REPLACE THIS
                 WHERE /pronovia/prmktz~knftp = pf_knftp.
>>>REPLACE WITH
                 WHERE /pronovia/prmktz~knftp = pf_knftp
                   AND bszid IN st_valid_bsz.                             "CG/ID10658
>>>END REPALCE
            APPEND ls_msinfo TO lt_mstae.
          ENDSELECT.
>>>START INSERT
        ENDIF.                                                          "CG/ID10658
>>>END INSERT
        IF sy-subrc NE 0.
          CLEAR: ls_msinfo-bszid, ls_msinfo-filtr.
          APPEND ls_msinfo TO lt_mstae.
        ENDIF.
      ENDSELECT.
    ENDIF.

*   BSZ Range aufsetzen

. . .

<ENDE>